  40  HOME 
  45  FOR PAUSE = 1 TO 1000: NEXT 
  46  SPEED= 170
  47  FOR I = 1 TO 12
  48  VTAB  10: HTAB 20: PRINT "O"
  49  VTAB  9: HTAB 19: PRINT "O"
  50  VTAB  9: HTAB 20: PRINT "O"
  51  VTAB  9: HTAB 21: PRINT "O"
  52  VTAB  10: HTAB 21: PRINT "O"
  53  VTAB  11: HTAB 21: PRINT "O"
  54  VTAB  11: HTAB 20: PRINT "O"
  55  VTAB  11: HTAB 19: PRINT "O"
  56  VTAB  10: HTAB 19: PRINT "O"
  57  HOME 
  58  NEXT I
  59  VTAB  10: HTAB 20: PRINT "O"
  66  FOR PAUSE = 1 TO 100: NEXT 
  67  VTAB  20: HTAB 6: PRINT "FIRST SCREENING: COMPUTER POEMS"
  68  FOR PAUSE = 1 TO 1000: NEXT 
  70  VTAB  22: HTAB 16: PRINT "bpNichol"
  71  FOR PAUSE = 1 TO 2000: NEXT 
  72  FOR PAUSE = 1 TO 2000: NEXT 
  73  FOR P = 1 TO 20:Q = 20 - P: POKE 32,Q: POKE 33,(2 * P): CALL  - 936: FOR R = 1 TO 50: NEXT : NEXT : REM  CURTAINS
  74  FOR PAUSE = 1 TO 1200: NEXT 
  75  VTAB  8: HTAB 13: PRINT "COPYRIGHT 1984"
  76  POKE 33,1: FOR V = 0 TO 20: POKE 32,V: CALL  - 936: POKE 32,(40 - V): CALL  - 936: FOR W = 1 TO 50: NEXT : NEXT : POKE 33,40: POKE 32,0: REM  SLIDING DOORS
  77  SPEED= 255
  80  HOME 
  82  FOR PAUSE = 1 TO 1500: NEXT 
  84  HOME : HTAB 5: VTAB  5: PRINT "If you experience trouble running": HTAB 5: VTAB  6: PRINT "this programme on an APPLE II": HTAB 5: VTAB  7: PRINT "or II+ computer a modified version": HTAB 5: VTAB  8: PRINT "is available from the publisher."
  86  HTAB 5: VTAB  9: PRINT "Simply return the disk and a": HTAB 5: VTAB  10: PRINT "replacement will be sent to you.": FOR PAUSE = 1 TO 4000: NEXT : FOR PAUSE = 1 TO 4000: NEXT :
  88  HOME : FOR PAUSE = 1 TO 4000: NEXT :
 100  GOSUB 300: REM  ISLAND
 101  GOSUB 360: REM  SELF-REFLEXIVE 1
 102  GOSUB 600: REM  LETTER
 103  GOSUB 1375: REM  REVERIE
 104  GOSUB 1000: REM  CONSTRUCTION 1
 105  GOSUB 3556: REM  ANY OF YOUR LIP
 106  GOSUB 425: REM  SELF-RELFEXIVE 2
 107  GOSUB 820: REM  POEM FOR MY FATHER
 108  GOSUB 1900: REM  AFTER THE STORM
 110  REM   FOR THE CURIOUS VIEWER/READER THERE'S AN 'OFF-SCREEN ROMANCE' AT 1748. YOU JUST HAVE TO TUNE IN THE PROGRAMME.
 112  GOSUB 495: REM  TIDAL POOL
 114  GOSUB 550: REM  DEDICATION
 116  REM   FOR FURTHER RE-MARKS LIST 3900,4000
 118  FOR PAUSE = 1 TO 4000: NEXT 
 120  VTAB  10: HTAB 5: PRINT "For Titles & Gosubs,"
 125  VTAB  11: HTAB 5: PRINT "type LIST 100,118."
 130  END 
 300  HOME 
 301  FOR PAUSE = 1 TO 2000: NEXT 
 304  VTAB  8: HTAB 18: PRINT "______"
 305  VTAB  10: HTAB 18: PRINT "ISLAND"
 306  VTAB  11: HTAB 18: PRINT "______"
 310  FOR PAUSE = 1 TO 4000: NEXT 
 315  HOME 
 320  FOR PAUSE = 1 TO 1200: NEXT 
 325  FOR H = 1 TO 120
 330  PRINT " WAVE WAVE WAVE","ROCK WAVE WAVE WAVE"," ","ROCK"
 335  NEXT H
 340  HOME 
 345  FOR PAUSE = 1 TO 1000: NEXT 
 350  RETURN 
 351  END 
 360  HOME 
 361  FOR PAUSE = 1 TO 2000: NEXT 
 364  VTAB  9: HTAB 14: PRINT "______________"
 365  VTAB  11: HTAB 14: PRINT "SELF-REFLEXIVE"
 370  FOR PAUSE = 1 TO 500: NEXT 
 375  VTAB  13: HTAB 18: PRINT "NO. 1"
 376  VTAB  14: HTAB 14: PRINT "______________"
 380  FOR PAUSE = 1 TO 4000: NEXT 
 385  HOME 
 390  FOR PAUSE = 1 TO 2000: NEXT 
 395  FOR G = 1 TO 65
 400  PRINT "   DREAM YOU LOST   TOSS ALL NIGHT","                                  ","                                  ","                                  ","                                  ","                                  "
 405  NEXT G
 410  HOME 
 415  RETURN 
 420  END 
 425  HOME 
 430  FOR PAUSE = 1 TO 2000: NEXT 
 434  VTAB  9: HTAB 14: PRINT "______________"
 435  VTAB  11: HTAB 14: PRINT "SELF-REFLEXIVE"
 440  FOR PAUSE = 1 TO 500: NEXT 
 445  VTAB  13: HTAB 18: PRINT "NO. 2"
 446  VTAB  14: HTAB 14: PRINT "______________"
 450  FOR PAUSE = 1 TO 4000: NEXT 
 455  HOME 
 460  FOR PAUSE = 1 TO 1200: NEXT 
 465  FOR D = 1 TO 120
 470  PRINT "THE BOTTOM LINE IS WHERE CHANGE IS","THE BOTTOM LINE IS WHERE CHANGE IS"
 475  NEXT D
 480  HOME 
 485  RETURN 
 490  END 
 495  FOR PAUSE = 1 TO 2000: NEXT 
 499  VTAB  8: HTAB 16: PRINT "__________"
 500  VTAB  10: HTAB 16: PRINT "TIDAL POOL"
 501  VTAB  11: HTAB 16: PRINT "__________"
 505  FOR PAUSE = 1 TO 4000: NEXT 
 510  HOME 
 515  FOR PAUSE = 1 TO 1200: NEXT 
 520  FOR C = 1 TO 120
 525  PRINT "ROCK WAVE ROCK","ROCK  ROCK ROCK","ROCK      ROCK","ROCK  ROCK ROCK"
 530  NEXT C
 535  HOME 
 540  RETURN 
 545  END 
 550  FOR PAUSE = 1 TO 2000: NEXT 
 551  VTAB  9: HTAB 9: PRINT "THESE POEMS DEDICATED TO"
 560  VTAB  11: HTAB 14: PRINT "LIONEL KEARNS"
 565  VTAB  12: HTAB 20: PRINT "&"
 570  VTAB  13: HTAB 14: PRINT "CAVAN MCCARTHY"
 575  FOR PAUSE = 1 TO 4000: NEXT 
 580  HOME : FOR PAUSE = 1 TO 4000: NEXT : HTAB 5: VTAB  5: PRINT "Special thanks to Pat Reilly for his":
 585  HTAB 5: VTAB  6: PRINT "modified version of this programme.": FOR PAUSE = 1 TO 4000: NEXT : HOME : RETURN 
 590  END 
 600  FOR PAUSE = 1 TO 2000: NEXT 
 604  VTAB  10: HTAB 18: PRINT "______"
 605  VTAB  12: HTAB 18: PRINT "LETTER"
 606  VTAB  13: HTAB 18: PRINT "______"
 610  FOR PAUSE = 1 TO 4000: NEXT 
 615  HOME 
 620  FOR PAUSE = 1 TO 1250: NEXT 
 625  VTAB  12: HTAB 5: PRINT "SAT DOWN TO WRITE YOU THIS POEM"
 630  FOR PAUSE = 1 TO 3000: NEXT 
 640  VTAB  12: HTAB 5: PRINT "AT DOWN TO WRITE YOU THIS POEM S"
 645  VTAB  12: HTAB 5: PRINT "T DOWN TO WRITE YOU THIS POEM SA"
 650  VTAB  12: HTAB 5: PRINT " DOWN TO WRITE YOU THIS POEM SAT"
 655  VTAB  12: HTAB 5: PRINT "DOWN TO WRITE YOU THIS POEM SAT "
 660  FOR PAUSE = 1 TO 3000: NEXT 
 665  VTAB  12: HTAB 5: PRINT "OWN TO WRITE YOU THIS POEM SAT D"
 670  VTAB  12: HTAB 5: PRINT "WN TO WRITE YOU THIS POEM SAT DO"
 675  VTAB  12: HTAB 5: PRINT "N TO WRITE YOU THIS POEM SAT DOW"
 680  VTAB  12: HTAB 5: PRINT " TO WRITE YOU THIS POEM SAT DOWN"
 685  VTAB  12: HTAB 5: PRINT "TO WRITE YOU THIS POEM SAT DOWN "
 690  FOR PAUSE = 1 TO 3000: NEXT 
 695  VTAB  12: HTAB 5: PRINT "O WRITE YOU THIS POEM SAT DOWN T"
 700  VTAB  12: HTAB 5: PRINT " WRITE YOU THIS POEM SAT DOWN TO"
 705  VTAB  12: HTAB 5: PRINT "WRITE YOU THIS POEM SAT DOWN TO "
 710  FOR PAUSE = 1 TO 3000: NEXT 
 715  VTAB  12: HTAB 5: PRINT "RITE YOU THIS POEM SAT DOWN TO W"
 720  VTAB  12: HTAB 5: PRINT "ITE YOU THIS POEM SAT DOWN TO WR"
 725  VTAB  12: HTAB 5: PRINT "TE YOU THIS POEM SAT DOWN TO WRI"
 730  VTAB  12: HTAB 5: PRINT "E YOU THIS POEM SAT DOWN TO WRIT"
 735  VTAB  12: HTAB 5: PRINT " YOU THIS POEM SAT DOWN TO WRITE"
 740  VTAB  12: HTAB 5: PRINT "YOU THIS POEM SAT DOWN TO WRITE "
 745  FOR PAUSE = 1 TO 3000: NEXT 
 750  VTAB  12: HTAB 5: PRINT "OU THIS POEM SAT DOWN TO WRITE Y"
 755  VTAB  12: HTAB 5: PRINT "U THIS POEM SAT DOWN TO WRITE YO"
 760  VTAB  12: HTAB 5: PRINT " THIS POEM SAT DOWN TO WRITE YOU"
 765  VTAB  12: HTAB 5: PRINT "THIS POEM SAT DOWN TO WRITE YOU "
 770  FOR PAUSE = 1 TO 3000: NEXT 
 775  VTAB  12: HTAB 5: PRINT "HIS POEM SAT DOWN TO WRITE YOU T"
 780  VTAB  12: HTAB 5: PRINT "IS POEM SAT DOWN TO WRITE YOU TH"
 785  VTAB  12: HTAB 5: PRINT "S POEM SAT DOWN TO WRITE YOU THI"
 790  VTAB  12: HTAB 5: PRINT " POEM SAT DOWN TO WRITE YOU THIS"
 795  VTAB  12: HTAB 5: PRINT "POEM SAT DOWN TO WRITE YOU THIS "
 800  FOR PAUSE = 1 TO 2000: NEXT 
 801  FOR PAUSE = 1 TO 4000: NEXT 
 805  HOME 
 810  RETURN 
 815  END 
 820  FOR PAUSE = 1 TO 2000: NEXT 
 824  VTAB  10: HTAB 12: PRINT "__________________"
 825  VTAB  12: HTAB 12: PRINT "POEM FOR MY FATHER"
 826  VTAB  13: HTAB 12: PRINT "__________________"
 830  FOR PAUSE = 1 TO 4000: NEXT 
 835  HOME 
 840  FOR PAUSE = 1 TO 2500: NEXT 
 841  VTAB  8: HTAB 18: PRINT "one"
 842  FOR PAUSE = 1 TO 1000: NEXT 
 843  HOME 
 844  FOR PAUSE = 1 TO 1000: NEXT 
 845  SPEED= 70
 850  FOR Z = 1 TO 33
 855  VTAB  23: HTAB 1 + Z: PRINT "TRAIN"
 860  NEXT Z
 865  SPEED= 255
 870  VTAB  1: HTAB 1: PRINT " "
 875  FOR Y = 1 TO 50
 880  PRINT " RAINRAINRAINRAINRAINRAINRAINRAINTRAIN","                                      "
 885  NEXT Y: FOR S = 1 TO 40
 887  PRINT "  AIN AIN AIN AIN AIN AIN AIN AIN  AIN","          "
 889  NEXT S: FOR T = 1 TO 30
 891  PRINT "   IN  IN  IN  IN  IN  IN  IN  IN   IN","          "
 893  NEXT T: FOR U = 1 TO 20
 895  PRINT "    N   N   N   N   N   N   N   N    N","          "
 897  NEXT U: FOR C = 1 TO 20
 898  PRINT "                                      ","           "
 899  NEXT C
 900  FOR PAUSE = 1 TO 1000: NEXT 
 901  GOSUB 1525: REM  FATHER2
 903  RETURN 
 905  END 
1000  FOR PAUSE = 1 TO 2000: NEXT 
1004  VTAB  10: HTAB 13: PRINT "________________"
1005  VTAB  12: HTAB 13: PRINT "CONSTRUCTION ONE"
1006  VTAB  13: HTAB 13: PRINT "________________"
1010  FOR PAUSE = 1 TO 4000: NEXT 
1015  HOME 
1018  FOR PAUSE = 1 TO 2500: NEXT 
1020  FOR F = 1 TO 24
1025  PRINT " "
1030  NEXT F
1035  PRINT " ","TOWER"
1040  FOR PAUSE = 1 TO 1200: NEXT 
1045  GOSUB 1520
1050  FOR PAUSE = 1 TO 1150: NEXT 
1055  GOSUB 1520
1060  FOR PAUSE = 1 TO 1100: NEXT 
1065  GOSUB 1520
1070  FOR PAUSE = 1 TO 1050: NEXT 
1075  GOSUB 1520
1080  FOR PAUSE = 1 TO 1000: NEXT 
1085  GOSUB 1520
1090  FOR PAUSE = 1 TO 950: NEXT 
1095  GOSUB 1520
1100  FOR PAUSE = 1 TO 900: NEXT 
1105  GOSUB 1520
1110  FOR PAUSE = 1 TO 850: NEXT 
1115  GOSUB 1520
1120  FOR PAUSE = 1 TO 800: NEXT 
1125  GOSUB 1520
1130  FOR PAUSE = 1 TO 750: NEXT 
1135  GOSUB 1520
1140  FOR PAUSE = 1 TO 700: NEXT 
1145  GOSUB 1520
1150  FOR PAUSE = 1 TO 650: NEXT 
1155  GOSUB 1520
1160  FOR PAUSE = 1 TO 600: NEXT 
1165  GOSUB 1520
1170  FOR PAUSE = 1 TO 550: NEXT 
1175  GOSUB 1520
1180  FOR PAUSE = 1 TO 500: NEXT 
1185  GOSUB 1520
1190  FOR PAUSE = 1 TO 450: NEXT 
1195  GOSUB 1520
1200  FOR PAUSE = 1 TO 400: NEXT 
1205  GOSUB 1520
1210  FOR PAUSE = 1 TO 350: NEXT 
1215  GOSUB 1520
1220  FOR PAUSE = 1 TO 300: NEXT 
1225  GOSUB 1520
1230  FOR PAUSE = 1 TO 250: NEXT 
1235  GOSUB 1520
1240  FOR PAUSE = 1 TO 200: NEXT 
1245  GOSUB 1520
1250  FOR PAUSE = 1 TO 150: NEXT 
1255  GOSUB 1520
1260  FOR PAUSE = 1 TO 100: NEXT 
1265  GOSUB 1520
1270  FOR PAUSE = 1 TO 50: NEXT 
1275  GOSUB 1520
1280  FOR PAUSE = 1 TO 25: NEXT 
1285  GOSUB 1520
1290  FOR PAUSE = 1 TO 12: NEXT 
1295  GOSUB 1520
1300  FOR PAUSE = 1 TO 6: NEXT 
1305  GOSUB 1520
1310  FOR PAUSE = 1 TO 3: NEXT 
1315  GOSUB 1520
1320  FOR BUZZ = 1 TO 125
1325 SOUND =  PEEK ( - 16336) +  PEEK ( - 16336) +  PEEK ( - 16336) -  PEEK ( - 16336)
1330  NEXT BUZZ
1335  FOR E = 1 TO 100
1340  PRINT "","BABEL","",""
1345  INVERSE 
1350  NEXT E
1355  NORMAL 
1360  HOME 
1365  RETURN 
1370  END 
1375  FOR PAUSE = 1 TO 2000: NEXT 
1380  VTAB  8: HTAB 16: PRINT "_______"
1385  VTAB  10: HTAB 16: PRINT "REVERIE"
1387  VTAB  11: HTAB 16: PRINT "_______"
1389  FOR PAUSE = 1 TO 4000: NEXT 
1391  HOME 
1393  FOR PAUSE = 1 TO 1250: NEXT 
1395  VTAB  12: HTAB 18: PRINT "_____"
1397  FOR PAUSE = 1 TO 1000: NEXT 
1399  VTAB  12: HTAB 19: PRINT "sun"
1400  FOR PAUSE = 1 TO 700: NEXT 
1403  FOR A = 1 TO 3
1405  VTAB  12 - A: HTAB 19: PRINT "sun"
1406  VTAB  12: HTAB 19: PRINT "___"
1407  FOR PAUSE = 1 TO 700: NEXT 
1408  VTAB  12 - A: HTAB 19: PRINT "   "
1409  NEXT A
1410  VTAB  8: HTAB 19: PRINT "SUN"
1411  VTAB  16: HTAB 17: PRINT "(field)"
1412  FOR PAUSE = 1 TO 1000: NEXT 
1414  FOR B = 1 TO 13
1416  VTAB  12: HTAB 38 - B: PRINT "HOE"
1418  FOR PAUSE = 1 TO 750: NEXT 
1420  VTAB  12: HTAB 38 - B: PRINT "   "
1421  VTAB  12: HTAB 38 - B - 2: PRINT "HOE"
1422  FOR PAUSE = 1 TO 750: NEXT 
1423  VTAB  12: HTAB 38 - B - 2: PRINT "   "
1424  NEXT B
1425  VTAB  12: HTAB 22: PRINT "HOE"
1426  FOR PAUSE = 1 TO 750: NEXT 
1427  VTAB  12: HTAB 22: PRINT "_  "
1428  VTAB  12: HTAB 23: PRINT "HOE"
1429  FOR PAUSE = 1 TO 750: NEXT 
1430  VTAB  12: HTAB 23: PRINT "   "
1434  VTAB  12: HTAB 21: PRINT "HOE"
1436  FOR PAUSE = 1 TO 750: NEXT 
1438  VTAB  12: HTAB 21: PRINT "_HOE"
1440  FOR PAUSE = 1 TO 750: NEXT 
1442  VTAB  12: HTAB 20: PRINT "HOE    "
1444  FOR PAUSE = 1 TO 750: NEXT 
1446  VTAB  12: HTAB 20: PRINT "_HOE "
1448  FOR PAUSE = 1 TO 750: NEXT 
1450  VTAB  12: HTAB 19: PRINT "HOE_ "
1452  FOR PAUSE = 1 TO 750: NEXT 
1454  VTAB  12: HTAB 19: PRINT "_HOE   "
1456  FOR PAUSE = 1 TO 750: NEXT 
1458  VTAB  12: HTAB 18: PRINT "HOE__"
1460  FOR PAUSE = 1 TO 750: NEXT 
1462  VTAB  12: HTAB 18: PRINT "_HOEr"
1464  FOR PAUSE = 1 TO 750: NEXT 
1466  VTAB  12: HTAB 17: PRINT "HOE__r"
1468  FOR PAUSE = 1 TO 750: NEXT 
1470  VTAB  12: HTAB 17: PRINT " HOEri"
1472  FOR PAUSE = 1 TO 750: NEXT 
1474  VTAB  12: HTAB 16: PRINT "HOE__ri"
1476  FOR PAUSE = 1 TO 750: NEXT 
1478  VTAB  12: HTAB 16: PRINT " HOEriz"
1480  FOR PAUSE = 1 TO 750: NEXT 
1482  VTAB  12: HTAB 15: PRINT "HOE__riz"
1484  FOR PAUSE = 1 TO 750: NEXT 
1486  VTAB  12: HTAB 15: PRINT " HOErizo"
1487  FOR PAUSE = 1 TO 750: NEXT 
1488  VTAB  12: HTAB 14: PRINT "HOE _rizo"
1489  FOR PAUSE = 1 TO 750: NEXT 
1490  VTAB  12: HTAB 14: PRINT " HOErizon"
1491  FOR PAUSE = 1 TO 750: NEXT 
1492  VTAB  12: HTAB 14: PRINT "    rizon"
1493  FOR C = 1 TO 9
1494  VTAB  12: HTAB 14 - C: PRINT "HOE"
1495  FOR PAUSE = 1 TO 750: NEXT 
1496  VTAB  12: HTAB 14 - C: PRINT "   "
1497  VTAB  12: HTAB 14 - C - 2: PRINT "HOE"
1498  FOR PAUSE = 1 TO 750: NEXT 
1499  VTAB  12: HTAB 14 - C - 2: PRINT "   "
1501  NEXT C
1503  FOR PAUSE = 1 TO 1250: NEXT 
1504  HOME 
1505  RETURN 
1507  END 
1520  PRINT " ","TOWER"
1522  RETURN 
1523  END 
1525  VTAB  8: HTAB 18: PRINT "two"
1530  FOR PAUSE = 1 TO 1000: NEXT 
1535  HOME 
1540  FOR PAUSE = 1 TO 1000: NEXT 
1545  SPEED= 90
1550  FOR B = 1 TO 33
1555  VTAB  23: HTAB 1 + B: PRINT "TRAIN"
1560  VTAB  23: HTAB 35 - B: PRINT "GHOST"
1565  NEXT B
1570  SPEED= 255
1575  FOR PAUSE = 1 TO 1500: NEXT PAUSE
1580  HOME 
1585  RETURN 
1590  END 
1600  HOME 
1601  FOR PAUSE = 1 TO 2000: NEXT 
1602  VTAB  8: HTAB 11: PRINT "__________________"
1604  VTAB  10: HTAB 11: PRINT "OFF-SCREEN ROMANCE"
1606  VTAB  11: HTAB 11: PRINT "__________________"
1608  FOR PAUSE = 1 TO 2000: NEXT 
1610  VTAB  15: HTAB 15: PRINT "for ellie"
1611  FOR PAUSE = 1 TO 2000: NEXT 
1612  HOME 
1614  FOR PAUSE = 1 TO 2000: NEXT 
1615  HOME 
1616  RETURN 
1618  END 
1620  FOR PAUSE = 1 TO 1500: NEXT 
1627  FOR A = 1 TO 9
1630  VTAB  1 + A: HTAB 10 + A: PRINT "FRED"
1635  VTAB  2 + A: HTAB 10 + A: PRINT "GINGER"
1640  VTAB  1 + A: HTAB 10 + A: PRINT "      "
1645  VTAB  3 + A: HTAB 10 + A: PRINT "FRED"
1650  VTAB  2 + A: HTAB 10 + A: PRINT "      "
1655  VTAB  4 + A: HTAB 10 + A: PRINT "GINGER"
1660  VTAB  3 + A: HTAB 10 + A: PRINT "      "
1665  VTAB  4 + A: HTAB 10 + A: PRINT "      "
1666  NEXT A: RETURN 
1667  FOR B = 1 TO 10
1668  VTAB  14 - B: HTAB 20 - B: PRINT "FRED"
1670  VTAB  15 - B: HTAB 20 - B: PRINT "GINGER"
1672  VTAB  14 - B: HTAB 20 - B: PRINT "    "
1674  VTAB  12 - B: HTAB 20 - B: PRINT "FRED"
1676  VTAB  15 - B: HTAB 20 - B: PRINT "      "
1678  VTAB  13 - B: HTAB 20 - B: PRINT "GINGER"
1680  VTAB  12 - B: HTAB 20 - B: PRINT "    "
1682  VTAB  13 - B: HTAB 20 - B: PRINT "      "
1683  NEXT B: RETURN 
1685  FOR C = 1 TO 10
1687  VTAB  13 + C: HTAB 20 - C: PRINT "FRED"
1689  VTAB  14 - C: HTAB 20 + C: PRINT "GINGER"
1691  VTAB  13 + C: HTAB 20 - C: PRINT "    "
1693  VTAB  14 - C: HTAB 20 + C: PRINT "      "
1695  NEXT C
1697  RETURN 
1699  FOR D = 1 TO 10
1701  VTAB  23 - D: HTAB 10 + D: PRINT "FRED"
1703  VTAB  4 + D: HTAB 30 - D: PRINT "GINGER"
1705  VTAB  23 - D: HTAB 10 + D: PRINT "    "
1707  VTAB  4 + D: HTAB 30 - D: PRINT "      "
1709  NEXT D
1711  RETURN 
1713  FOR E = 1 TO 8
1714  VTAB  14 + E: HTAB 20 + E: PRINT "      "
1715  VTAB  14 + E: HTAB 20 + E: PRINT "GINGER"
1716  VTAB  15 + E: HTAB 20 + E: PRINT "    "
1717  VTAB  15 + E: HTAB 20 + E: PRINT "FRED"
1719  VTAB  14 + E: HTAB 20 + E: PRINT "      "
1721  VTAB  15 + E: HTAB 20 + E: PRINT "    "
1723  NEXT E
1725  RETURN 
1727  END 
1729  FOR F = 1 TO 9
1731  VTAB  23 - F: HTAB 30 - F: PRINT "FRED"
1733  VTAB  24 - F: HTAB 30 - F: PRINT "GINGER"
1735  VTAB  23 - F: HTAB 30 - F: PRINT "    "
1737  VTAB  24 - F: HTAB 30 - F: PRINT "      "
1739  NEXT F
1741  RETURN 
1743  END 
1748  GOSUB 1600
1750  FOR Z = 1 TO 2
1752  SPEED= 200
1754  GOSUB 1627
1756  GOSUB 1667
1758  GOSUB 1627
1760  GOSUB 1685: GOSUB 1699
1762  GOSUB 1685: GOSUB 1699
1764  GOSUB 1667
1766  NEXT Z
1768  GOSUB 1627
1770  GOSUB 1713
1772  GOSUB 1729
1774  GOSUB 1685
1776  GOSUB 1699
1778  GOSUB 1800
1780  GOSUB 1685: GOSUB 1699
1782  GOSUB 1800
1784  GOSUB 1713
1786  HOME 
1788  SPEED= 255
1790  RETURN 
1792  END 
1800  FOR Y = 1 TO 6
1802  VTAB  14: HTAB 20: PRINT "FRED"
1804  VTAB  15: HTAB 20: PRINT "GINGER"
1806  VTAB  14: HTAB 20: PRINT "    "
1808  VTAB  15: HTAB 20: PRINT "      "
1810  VTAB  14: HTAB 20: PRINT "FRED"
1812  VTAB  14: HTAB 20: PRINT "GINGER"
1814  VTAB  14: HTAB 20: PRINT "      "
1816  VTAB  15: HTAB 20: PRINT "FRED"
1818  VTAB  15: HTAB 20: PRINT "GINGER"
1820  VTAB  15: HTAB 20: PRINT "      "
1822  NEXT Y
1824  RETURN 
1826  END 
1900  HOME 
1905  FOR PAUSE = 1 TO 2000: NEXT 
1909  VTAB  9: HTAB 13: PRINT "_______________"
1910  VTAB  11: HTAB 13: PRINT "AFTER THE STORM"
1911  VTAB  12: HTAB 13: PRINT "_______________"
1915  FOR PAUSE = 1 TO 4000: NEXT 
1920  HOME 
1925  FOR PAUSE = 1 TO 2500: NEXT 
2005  SPEED= 210
2010  VTAB  4: HTAB 5: PRINT "THIS"
2015  VTAB  4: HTAB 5: PRINT " THIS"
2020  VTAB  4: HTAB 5: PRINT "  THIS"
2025  VTAB  4: HTAB 5: PRINT "   THIS"
2030  VTAB  4: HTAB 5: PRINT "    THIS"
2035  VTAB  4: HTAB 5: PRINT "     THIS"
2040  VTAB  4: HTAB 5: PRINT "      THIS"
2045  VTAB  4: HTAB 5: PRINT "      THISS"
2050  VTAB  4: HTAB 5: PRINT "      THISSS"
2055  VTAB  4: HTAB 5: PRINT "      THIISSS"
2060  VTAB  4: HTAB 5: PRINT "      THIIISSS"
2065  VTAB  4: HTAB 5: PRINT "      THIISISS"
2070  VTAB  4: HTAB 5: PRINT "      THISIISS"
2075  VTAB  4: HTAB 5: PRINT "      THIS ISS"
2080  VTAB  4: HTAB 5: PRINT "      THIS  IS"
2085  VTAB  4: HTAB 5: PRINT "      THIS   IS"
2090  VTAB  4: HTAB 5: PRINT "      THIS    IS"
2100  VTAB  4: HTAB 5: PRINT "      THIS     IS"
2105  VTAB  4: HTAB 5: PRINT "      THIS      IS"
2110  VTAB  4: HTAB 5: PRINT "      THIS      I "
2115  VTAB  5: HTAB 22: PRINT "S"
2120  VTAB  4: HTAB 5: PRINT "      THIS        "
2125  VTAB  5: HTAB 21: PRINT "IS"
2130  FOR PAUSE = 1 TO 70: NEXT 
2135  VTAB  6: HTAB 3: PRINT "T"
2140  FOR PAUSE = 1 TO 160: NEXT 
2145  VTAB  6: HTAB 4: PRINT "H"
2150  FOR PAUSE = 1 TO 150: NEXT 
2155  VTAB  6: HTAB 5: PRINT "E"
2160  FOR PAUSE = 1 TO 70: NEXT 
2161  SPEED= 160
2165  VTAB  1: HTAB 14: PRINT "S"
2170  VTAB  2: HTAB 15: PRINT "S"
2175  VTAB  1: HTAB 14: PRINT " "
2180  VTAB  3: HTAB 14: PRINT "S"
2185  VTAB  2: HTAB 15: PRINT " "
2190  VTAB  4: HTAB 15: PRINT "S"
2195  VTAB  3: HTAB 14: PRINT " "
2200  VTAB  5: HTAB 16: PRINT "S"
2205  VTAB  4: HTAB 15: PRINT " "
2210  VTAB  6: HTAB 17: PRINT "S"
2215  VTAB  5: HTAB 16: PRINT " "
2220  VTAB  7: HTAB 16: PRINT "S"
2225  VTAB  6: HTAB 17: PRINT " "
2230  VTAB  23: HTAB 1: PRINT "E"
2235  VTAB  23: HTAB 1: PRINT " "
2240  VTAB  21: HTAB 4: PRINT "EE"
2245  VTAB  22: HTAB 2: PRINT " "
2250  VTAB  20: HTAB 5: PRINT "E"
2255  VTAB  21: HTAB 4: PRINT "  E"
2260  VTAB  19: HTAB 6: PRINT "E"
2265  VTAB  20: HTAB 5: PRINT " "
2270  VTAB  21: HTAB 6: PRINT " E"
2275  VTAB  20: HTAB 6: PRINT "E"
2280  VTAB  18: HTAB 7: PRINT "E"
2285  VTAB  19: HTAB 6: PRINT " "
2290  VTAB  20: HTAB 7: PRINT "E"
2295  VTAB  21: HTAB 7: PRINT " "
2300  VTAB  19: HTAB 7: PRINT "E"
2305  VTAB  20: HTAB 6: PRINT " "
2310  VTAB  17: HTAB 8: PRINT "E"
2315  VTAB  18: HTAB 7: PRINT " "
2320  VTAB  20: HTAB 7: PRINT " E"
2325  VTAB  18: HTAB 8: PRINT "E"
2330  VTAB  19: HTAB 7: PRINT " "
2335  VTAB  16: HTAB 9: PRINT "E"
2340  VTAB  17: HTAB 8: PRINT " "
2345  VTAB  19: HTAB 9: PRINT "E"
2350  VTAB  20: HTAB 8: PRINT " "
2355  VTAB  17: HTAB 9: PRINT "E"
2360  VTAB  18: HTAB 8: PRINT " "
2365  VTAB  15: HTAB 10: PRINT "E"
2370  VTAB  16: HTAB 9: PRINT " "
2375  VTAB  19: HTAB 9: PRINT " E"
2380  VTAB  16: HTAB 10: PRINT "E"
2385  VTAB  17: HTAB 9: PRINT " "
2390  VTAB  14: HTAB 11: PRINT "E"
2395  VTAB  15: HTAB 10: PRINT " "
2400  VTAB  19: HTAB 10: PRINT " E"
2405  VTAB  16: HTAB 10: PRINT " E"
2410  VTAB  13: HTAB 12: PRINT "E"
2415  VTAB  14: HTAB 11: PRINT " "
2420  VTAB  19: HTAB 11: PRINT " E"
2425  VTAB  16: HTAB 11: PRINT " E"
2430  VTAB  12: HTAB 13: PRINT "E"
2435  VTAB  13: HTAB 12: PRINT " "
2440  VTAB  18: HTAB 13: PRINT "E"
2445  VTAB  19: HTAB 12: PRINT " "
2450  VTAB  16: HTAB 12: PRINT " E"
2455  VTAB  11: HTAB 14: PRINT "E"
2460  VTAB  12: HTAB 13: PRINT " "
2465  VTAB  18: HTAB 13: PRINT " E"
2470  VTAB  15: HTAB 14: PRINT "E"
2475  VTAB  16: HTAB 13: PRINT " "
2480  VTAB  10: HTAB 15: PRINT "E"
2485  VTAB  11: HTAB 14: PRINT " "
2490  VTAB  18: HTAB 14: PRINT " E"
2495  VTAB  15: HTAB 14: PRINT " E"
2500  VTAB  9: HTAB 16: PRINT "E"
2505  VTAB  10: HTAB 15: PRINT " "
2510  VTAB  18: HTAB 15: PRINT " E"
2515  VTAB  14: HTAB 16: PRINT "E"
2520  VTAB  15: HTAB 15: PRINT " "
2525  VTAB  8: HTAB 17: PRINT "E"
2530  VTAB  9: HTAB 16: PRINT " "
2535  VTAB  18: HTAB 16: PRINT " E"
2540  VTAB  13: HTAB 17: PRINT "E"
2545  VTAB  14: HTAB 16: PRINT " "
2550  VTAB  7: HTAB 17: PRINT "E"
2555  VTAB  8: HTAB 17: PRINT " "
2560  VTAB  17: HTAB 18: PRINT "E"
2565  VTAB  18: HTAB 17: PRINT " "
2570  VTAB  12: HTAB 18: PRINT "E"
2575  VTAB  13: HTAB 17: PRINT " "
2580  VTAB  5: HTAB 12: PRINT "T"
2585  VTAB  16: HTAB 19: PRINT "E"
2590  VTAB  17: HTAB 18: PRINT " "
2595  VTAB  11: HTAB 19: PRINT "E"
2600  VTAB  12: HTAB 18: PRINT " "
2605  VTAB  6: HTAB 13: PRINT "T"
2610  VTAB  5: HTAB 12: PRINT " "
2615  VTAB  15: HTAB 20: PRINT "E"
2620  VTAB  16: HTAB 19: PRINT " "
2625  VTAB  10: HTAB 20: PRINT "E"
2630  VTAB  11: HTAB 19: PRINT " "
2635  VTAB  7: HTAB 14: PRINT "T"
2640  VTAB  6: HTAB 13: PRINT " "
2645  VTAB  14: HTAB 21: PRINT "E"
2650  VTAB  15: HTAB 20: PRINT " "
2655  VTAB  9: HTAB 19: PRINT "E"
2660  VTAB  10: HTAB 20: PRINT " "
2665  VTAB  8: HTAB 15: PRINT "T"
2670  VTAB  7: HTAB 14: PRINT " "
2675  VTAB  13: HTAB 22: PRINT "E"
2680  VTAB  14: HTAB 21: PRINT " "
2685  VTAB  8: HTAB 19: PRINT "E"
2690  VTAB  9: HTAB 19: PRINT " "
2700  VTAB  9: HTAB 16: PRINT "T"
2705  VTAB  8: HTAB 15: PRINT " "
2710  VTAB  12: HTAB 23: PRINT "E"
2715  VTAB  13: HTAB 22: PRINT " "
2720  VTAB  7: HTAB 20: PRINT "E"
2725  VTAB  8: HTAB 19: PRINT " "
2730  VTAB  8: HTAB 17: PRINT "T"
2735  VTAB  9: HTAB 16: PRINT " "
2740  VTAB  11: HTAB 24: PRINT "E"
2745  VTAB  12: HTAB 23: PRINT " "
2750  VTAB  1: HTAB 28: PRINT "N"
2755  VTAB  7: HTAB 18: PRINT "T"
2760  VTAB  8: HTAB 17: PRINT " "
2765  VTAB  10: HTAB 25: PRINT "E"
2770  VTAB  11: HTAB 24: PRINT " "
2775  VTAB  2: HTAB 27: PRINT "N"
2780  VTAB  1: HTAB 28: PRINT " "
2785  VTAB  7: HTAB 19: PRINT "T"
2790  VTAB  7: HTAB 18: PRINT " "
2795  VTAB  9: HTAB 24: PRINT "E"
2800  VTAB  10: HTAB 25: PRINT " "
2805  VTAB  3: HTAB 26: PRINT "NN"
2810  VTAB  2: HTAB 27: PRINT " "
2815  VTAB  20: HTAB 36: PRINT "C"
2820  VTAB  8: HTAB 24: PRINT "E"
2825  VTAB  9: HTAB 24: PRINT " "
2830  VTAB  4: HTAB 25: PRINT "N"
2835  VTAB  3: HTAB 26: PRINT "N "
2840  VTAB  19: HTAB 35: PRINT "C"
2845  VTAB  20: HTAB 36: PRINT " "
2850  VTAB  7: HTAB 23: PRINT "E"
2855  VTAB  8: HTAB 24: PRINT " "
2860  VTAB  5: HTAB 24: PRINT "N"
2865  VTAB  4: HTAB 25: PRINT " "
2866  VTAB  3: HTAB 25: PRINT "N "
2870  VTAB  18: HTAB 34: PRINT "C"
2875  VTAB  19: HTAB 35: PRINT " "
2880  VTAB  6: HTAB 23: PRINT "N"
2885  VTAB  5: HTAB 24: PRINT " "
2886  VTAB  3: HTAB 24: PRINT "N "
2890  VTAB  17: HTAB 33: PRINT "C"
2895  VTAB  18: HTAB 34: PRINT " "
2900  VTAB  6: HTAB 22: PRINT "N "
2901  VTAB  3: HTAB 23: PRINT "N "
2905  VTAB  16: HTAB 32: PRINT "C"
2910  VTAB  17: HTAB 33: PRINT " "
2915  VTAB  7: HTAB 21: PRINT "N"
2916  VTAB  6: HTAB 22: PRINT " "
2917  VTAB  4: HTAB 22: PRINT "N"
2918  VTAB  3: HTAB 23: PRINT " "
2920  VTAB  15: HTAB 31: PRINT "C"
2925  VTAB  16: HTAB 32: PRINT " "
2930  VTAB  4: HTAB 21: PRINT "N "
2935  VTAB  4: HTAB 20: PRINT "N "
2940  VTAB  14: HTAB 30: PRINT "C"
2945  VTAB  15: HTAB 31: PRINT " "
2950  VTAB  4: HTAB 19: PRINT "N "
2955  VTAB  13: HTAB 29: PRINT "C"
2960  VTAB  14: HTAB 30: PRINT " "
2965  VTAB  4: HTAB 18: PRINT "N "
2970  VTAB  12: HTAB 28: PRINT "C"
2975  VTAB  13: HTAB 29: PRINT " "
2980  VTAB  5: HTAB 18: PRINT "N"
2981  VTAB  4: HTAB 18: PRINT " "
2985  VTAB  11: HTAB 27: PRINT "C"
2990  VTAB  12: HTAB 28: PRINT " "
2995  VTAB  6: HTAB 18: PRINT "N"
2996  VTAB  5: HTAB 18: PRINT " "
3000  VTAB  10: HTAB 26: PRINT "C"
3005  VTAB  11: HTAB 27: PRINT " "
3010  VTAB  7: HTAB 18: PRINT "N"
3015  VTAB  6: HTAB 18: PRINT " "
3110  VTAB  10: HTAB 25: PRINT "C"
3115  VTAB  10: HTAB 26: PRINT " "
3120  VTAB  9: HTAB 24: PRINT "C"
3125  VTAB  10: HTAB 25: PRINT " "
3130  VTAB  8: HTAB 23: PRINT "C"
3135  VTAB  9: HTAB 24: PRINT " "
3140  VTAB  7: HTAB 22: PRINT "C"
3145  VTAB  8: HTAB 23: PRINT " "
3150  FOR PAUSE = 1 TO 150: NEXT 
3155  VTAB  8: HTAB 27: PRINT "THAT"
3160  FOR PAUSE = 1 TO 150: NEXT 
3161  VTAB  9: HTAB 4: PRINT "THE"
3162  FOR PAUSE = 1 TO 175: NEXT 
3165  FOR X = 1 TO 12
3166  SPEED= 225
3167  VTAB  10: HTAB 8 + X: PRINT " "
3169  VTAB  11: HTAB 8 + X: PRINT " "
3171  VTAB  11: HTAB 7 + X: PRINT " "
3173  VTAB  10: HTAB 7 + X: PRINT " "
3175  VTAB  9: HTAB 7 + X: PRINT " "
3177  VTAB  9: HTAB 8 + X: PRINT " "
3179  VTAB  9: HTAB 9 + X: PRINT " "
3181  VTAB  10: HTAB 9 + X: PRINT " "
3183  VTAB  11: HTAB 9 + X: PRINT " "
3188  VTAB  10: HTAB 8 + X: PRINT "W"
3189  VTAB  11: HTAB 8 + X: PRINT "I"
3190  VTAB  11: HTAB 7 + X: PRINT "N"
3195  VTAB  10: HTAB 7 + X: PRINT "D"
3200  VTAB  9: HTAB 7 + X: PRINT "I"
3205  VTAB  9: HTAB 8 + X: PRINT "W"
3210  VTAB  9: HTAB 9 + X: PRINT "I"
3215  VTAB  10: HTAB 9 + X: PRINT "N"
3220  VTAB  11: HTAB 9 + X: PRINT "D"
3225  VTAB  11: HTAB 7 + X: PRINT " "
3230  VTAB  10: HTAB 7 + X: PRINT " "
3235  VTAB  9: HTAB 7 + X: PRINT " "
3240  NEXT X
3250  VTAB  11: HTAB 22: PRINT "D"
3255  VTAB  11: HTAB 21: PRINT " "
3260  VTAB  11: HTAB 19: PRINT " "
3265  VTAB  10: HTAB 22: PRINT "N"
3270  VTAB  10: HTAB 21: PRINT "I"
3275  VTAB  9: HTAB 21: PRINT " "
3280  VTAB  9: HTAB 19: PRINT " "
3285  VTAB  10: HTAB 23: PRINT "D"
3286  VTAB  11: HTAB 22: PRINT " "
3290  VTAB  10: HTAB 19: PRINT " "
3295  VTAB  9: HTAB 20: PRINT " "
3300  VTAB  11: HTAB 20: PRINT " "
3305  SPEED= 165
3310  FOR PAUSE = 1 TO 170: NEXT 
3312  FOR W = 1 TO 6
3315  VTAB  11: HTAB 10: PRINT "B"
3320  VTAB  11: HTAB 9: PRINT "BLE"
3325  VTAB  11: HTAB 8: PRINT "BBLEWW"
3330  VTAB  11: HTAB 8: PRINT " BLEW "
3335  VTAB  11: HTAB 9: PRINT " BW "
3340  VTAB  11: HTAB 10: PRINT "  "
3345  NEXT W
3350  VTAB  11: HTAB 10: PRINT "BW"
3355  VTAB  11: HTAB 9: PRINT "BLEW"
3360  VTAB  11: HTAB 8: PRINT "BBLEWW"
3365  VTAB  11: HTAB 8: PRINT " BLEW "
3370  FOR PAUSE = 1 TO 170: NEXT 
3375  VTAB  12: HTAB 29: PRINT "HERE"
3380  FOR PAUSE = 1 TO 4000: NEXT 
3500  HOME 
3505  SPEED= 255
3510  RETURN 
3515  END 
3520  VTAB  12: HTAB 18: PRINT "MOUTH"
3522  RETURN 
3524  VTAB  12: HTAB 18: PRINT "mouth"
3526  RETURN 
3528  VTAB  12: HTAB 18: PRINT " myth"
3530  RETURN 
3532  VTAB  12: HTAB 18: PRINT " math"
3534  RETURN 
3536  VTAB  12: HTAB 18: PRINT " mate"
3538  RETURN 
3540  VTAB  12: HTAB 18: PRINT " maze"
3542  RETURN 
3544  VTAB  12: HTAB 18: PRINT "amaze"
3546  RETURN 
3548  VTAB  12: HTAB 18: PRINT " ing "
3550  RETURN 
3552  FOR PAUSE = 1 TO 700: NEXT 
3554  RETURN 
3556  HOME 
3557  FOR PAUSE = 1 TO 3000: NEXT 
3558  VTAB  8: HTAB 12: PRINT "_______________"
3560  VTAB  10: HTAB 12: PRINT "ANY OF YOUR LIP"
3561  VTAB  11: HTAB 12: PRINT "_______________"
3562  FOR PAUSE = 1 TO 1250: NEXT 
3563  VTAB  15: HTAB 10: PRINT "a silent sound poem"
3564  VTAB  16: HTAB 11: PRINT "for sean o'huigin"
3565  FOR PAUSE = 1 TO 4000: NEXT 
3570  HOME 
3575  FOR PAUSE = 1 TO 1250: NEXT 
3580  FOR A = 1 TO 4
3585  GOSUB 3520
3590  GOSUB 3552
3595  GOSUB 3524
3600  GOSUB 3552
3605  NEXT A
3610  FOR B = 1 TO 4
3615  GOSUB 3520
3620  GOSUB 3552
3625  GOSUB 3528
3630  GOSUB 3552
3635  NEXT B
3640  FOR C = 1 TO 4
3645  GOSUB 3520
3650  GOSUB 3552
3655  GOSUB 3532
3660  GOSUB 3552
3665  NEXT C
3670  FOR D = 1 TO 4
3675  GOSUB 3520
3680  GOSUB 3552
3685  GOSUB 3536
3690  GOSUB 3552
3695  NEXT D
3700  FOR E = 1 TO 4
3705  GOSUB 3520
3710  GOSUB 3552
3715  GOSUB 3540
3720  GOSUB 3552
3725  NEXT E
3730  FOR F = 1 TO 4
3735  GOSUB 3520
3740  GOSUB 3552
3745  GOSUB 3544
3750  GOSUB 3552
3755  NEXT F
3760  FOR G = 1 TO 3
3765  GOSUB 3520
3770  GOSUB 3552
3775  GOSUB 3548
3780  GOSUB 3552
3785  GOSUB 3544
3790  GOSUB 3552
3795  GOSUB 3548
3800  GOSUB 3552
3805  NEXT G
3807  HOME 
3809  GOSUB 3552
3810  FOR H = 1 TO 8
3815  GOSUB 3548
3820  GOSUB 3552
3821  HOME 
3822  FOR PAUSE = 1 TO 600: NEXT 
3825  NEXT H
3830  GOSUB 3524
3835  GOSUB 3552
3837  FOR PAUSE = 1 TO 500: NEXT 
3840  HOME 
3845  FOR PAUSE = 1 TO 1250: NEXT 
3850  RETURN 
3855  END 
3900  REM  ARK
3905  REM  BOAT
3910  REM  AIN
3915  REM  RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN
3920  REM  BOAT
3925  REM  ARK
3930  REM  BOW
3935  REM  ARC
4000  END 